home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / word search crea (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  243 lines
  1. 100 print"[147]":clr:restore
  2. 110 dim l$(78,78),w$(78)
  3. 140 gosub 61030
  4. 150 h$="[147]        the word search creator         "
  5. 155 goto2000
  6. 160 printh$:print
  7. 170 print"enter name of word search puzzle":print"-->";
  8. 180 ln=25:gosub60000:t$=b$:ifb$=""thenprint"[145][145]";:goto170
  9. 190 printh$:print:print"[156]title[152]:    "t$:print
  10. 200 print"enter the # of columns please [152](10[152]-38[152])":print"-->   [157][157][157]";
  11. 210 ln=3:gosub60000:c=val(b$): ifc<10orc>38thenprint"[145][145]";:goto200
  12. 220 printh$:print:print"[156]title[152]:    "t$:print:print"columns[152]: "c:print
  13. 222 ifa=2then2240
  14. 230 print"[129]enter the # of rows [152](10[152]-40[152])":print"-->   [157][157][157]";
  15. 240 ln=3:gosub60000:r=val(b$):ifr<10orr>40thenprint"[145][145]";:goto 230
  16. 250 printh$:print:print"[156]title    [146][152]:"t$:print:print"columns [146][152]:"c:print
  17. 260 print"[129]rows    [146][152]:"r:print
  18. 270 print"[158]enter the # of words in puzzle ";
  19. 280 ww=c+r:print"[152](1[152]-"ww"[157][152])":print"-->   [157][157][157]";:ln=4:gosub60000:w=val(b$)
  20. 285 ifw<1orw>ww then print"[145][145]";:goto270
  21. 290 printh$:print:print"[156]title    [146][152]:"t$:print:print"columns [146][152]:"c:print
  22. 300 print"[129]rows    [146][152]:"r:print:print"[158]words   [146][152]:"w:print
  23. 305 print" (press any when ready to continue) "
  24. 310 wait198,1:poke198,0
  25. 320 printh$:print
  26. 330 l=c:ifr<cthenl=r
  27. 340 print"[159] enter the words, be sure that they are"
  28. 342 print"      less than"l"letters in length"
  29. 344 print:print
  30. 360 fort=1tow
  31. 370 print"[156]word [152]#[155]"t"[152]:";
  32. 380 ln=l:gosub60000:w$(t)=b$:print
  33. 390 iflen(w$(t))>lthenprint"to long":goto370
  34. 400 nextt
  35. 410 print" (press any when ready to continue) "
  36. 420 wait 198,1:poke198,0
  37. 430 printh$:print:print"[150]  please wait[152]: working on the puzzle ":print
  38. 440 fort=1tor:fortt=1toc:l$(t,tt)="[209]":nexttt,t
  39. 450 fort=1tow
  40. 460 x=int(rnd(1)*r)+1
  41. 470 y=int(rnd(1)*c)+1
  42. 480 v=int(rnd(1)*3)-1
  43. 490 h=int(rnd(1)*3)-1
  44. 500 ifv=0andh=0then480
  45. 510 xx=x:yy=y
  46. 520 fortt=1tolen(w$(t))
  47. 530 d$=mid$(w$(t),tt,1):ifd$=" "then600
  48. 540 c$=l$(x,y):ifc$<>d$then560
  49. 550 goto570
  50. 560 ifc$<>"[209]"then460
  51. 570 x=x+v:y=y+h
  52. 580 ifx>rorx<1then460
  53. 590 ify>cory<1then460
  54. 600 nexttt:x=xx:y=yy
  55. 610 fortt=1tolen(w$(t))
  56. 620 d$=mid$(w$(t),tt,1):ifd$=" "then650
  57. 630 l$(x,y)=d$
  58. 640 x=x+v:y=y+h
  59. 650 nexttt:nextt
  60. 659 print" advance the printer to the next page &
  61. 660 [153]" press any key when ready to continue"
  62. 667 [153]
  63. 670 [146]198,1:[151]198,0
  64. 680 [153]h$
  65. 700 [153]h$:[153]:[153]:[153][166]16)"printing"
  66. 710 [153]:[153][166]15)"answer key"
  67. 720 a$[178]"y":[141]1000
  68. 730 [153]h$:[153]:[153]:[153]"replacing dots with letters, please wait"
  69. 740 [129]t[178]1[164]r:[129]tt[178]1[164]c
  70. 750 [139]l$(t,tt)[179][177]"(NULL)"[167]770
  71. 760 l$(t,tt)[178][199]([181]([187](1)[172]26)[170]65)
  72. 770 [130]tt,t
  73. 780 [153]h$:[153]:[153]"  adavance printer to the next page &"
  74. 785 [153]" press any key when ready to continue"
  75. 790 [161]a$:[139]a$[178]""[167]790
  76. 800 [153]h$:[153]:[153]:[153][166]16)"printing"
  77. 810 [153]:[153][166]17)"puzzle"
  78. 820 a$[178]"n":[141]1000
  79. 830 [153]h$:[153]:[153]"would you like another copy (y/n)."
  80. 840 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]840
  81. 850 [139]a$[178]"y"[167]780
  82. 860 [153]h$:[153]:[153]"do you want to make another puzzle(y/n)."
  83. 870 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]870
  84. 880 [139]a$[178]"y"[167]2000
  85. 890 [153]h$:[153]:[153]" i hope you had fun making your puzzle."
  86. 900 [153]"            please come back"
  87. 910 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  88. 915 [139]er[179][177]63 [167] [128]
  89. 920 [147]"hello connect",8
  90. 1000 [159]15,4,15:[160]15:[139]st[179][177]0[167] 63500
  91. 1003 [159]4,4
  92. 1005 s$[178]"":[129]t[178]1[164](21[171][195](t$)[173]2):s$[178]s$[170]" ":[130]
  93. 1010 [152]4,[199](14)s$t$
  94. 1020 [152]4:[152]4
  95. 1030 [139]a$[179][177]"y"[167]1050
  96. 1040 [152]4,[199](14)"                answer key"
  97. 1050 [152]4:[152]4,[199](15)
  98. 1060 s$[178]"":[129]t[178]1[164](41[171](c)):s$[178]s$[170]" ":[130]
  99. 1070 [129]t[178]1[164]r
  100. 1080 [152]4,s$;
  101. 1090 [129]tt[178]1[164]c
  102. 1100 [152]4,l$(t,tt)" ";
  103. 1110 [130]tt:[152]4:[130]t
  104. 1120 [152]4:[152]4:[152]4
  105. 1130 [129]t[178]1[164]w
  106. 1140 [152]4,[199](16)"10"w$(t);:t[178]t[170]1:[139]t[177]w[167]1170
  107. 1150 [152]4,[199](16)"30"w$(t);:t[178]t[170]1:[139]t[177]w[167]1170
  108. 1160 [152]4,[199](16)"55"w$(t)
  109. 1170 [130]t:[152]4
  110. 1180 [160]4
  111. 1190 [142]
  112. 2000 [151]53280,.:[151]53281,.:[153]"load"
  113. 2050 [141] 60770
  114. 2100 [161]a$:[139]a$[178]""[167]2100
  115. 2110 [139] a$[179]"0" [176] a$[177]"7" [167] 2100
  116. 2115 [139]a$[178]"0" [167] 63000
  117. 2116 a[178][197](a$)
  118. 2120 [139]a[178]1 [167]2150
  119. 2130 [153]"load"
  120. 2135 [153]"  please wait while data is being read"
  121. 2140 c[178]30:r[178]30:w[178]20
  122. 2150 [145]a[137]160,2160,2170,2180,2190,2200,2210
  123. 2160 t$[178]"girl's names":[137]2220
  124. 2170 t$[178]"boy's names":[137]2220
  125. 2180 t$[178]"basic commands":[137]2220
  126. 2190 t$[178]"baseball teams":[137]2220
  127. 2200 t$[178]"u.s. presidents":[137]2220
  128. 2210 t$[178]"u.s. capitals":[137]2220
  129. 2220 :
  130. 2221 [139]a[178]2[167]2240
  131. 2230 [129]t[178]1[164](20[172](a[171]2)):[135]x$:[130]
  132. 2240 [129]t[178]1[164]20:[135]w$(t):[130]t
  133. 2250 [137]440
  134. 3000 [131] sarah,tonia,melissa,tammy,amy,debra,kristi,susan,katherine
  135. 3010 [131] cora,melanie,samantha,stephanie,deena,tracey,stacey,ann
  136. 3100 [131] becky,jana,laura,chris,marvin,maurice,anthony,matthew
  137. 3110 [131] charles,george,robert,allan,carl,brain,dennis,mike,bruce
  138. 3115 [131] john,thomas,doug,stu,troy,kevin
  139. 3200 [131] print,list,let,read,input,get,goto,gosub,return,dim
  140. 3210 [131] save,load,new,end,stop,poke,peek,cont,spc,tab
  141. 3300 [131] yankees,red sox,white sox,mets,pirates,astros,rangers
  142. 3310 [131] cubs,expos,reds,cardinals,padres,royals,blue jays,indians
  143. 3320 [131]athletics,giants,orioles,dodgers,mariners
  144. 3400 [131] washington,adams,lincoln,johnson,jefferson,monroe,jackson,reagan
  145. 3410 [131] carter,ford,nixon,kennedy,eisenhower,truman,roosevelt
  146. 3420 [131] hoover,wilson,harding,garfield,taft
  147. 3500 [131] austin,santa fe,little rock,carson city,baton rouge,jackson
  148. 3510 [131] atlanta,olympia,providence,dover,indianapolis,topeka,richmond
  149. 3520 [131] phoenix,tallahasse,sacramento,pierre,frankfort,augusta,albany
  150. 60000 b$[178]""
  151. 60010 ll[178]1:[153]"to";
  152. 60015 [161]a$:[139]a$[178]""[167]60015
  153. 60020 [139]a$[178][199](20)[175]ll[178]1 [167] 60015
  154. 60025 [139]a$[178][199](20)[167][153]"cmdcmd  cmdcmdto";:ll[178]ll[171]1:b$[178][200](b$,ll[171]1):[137]60015
  155. 60030 [139]a$[178][199](13) [167][153]"cmd cmd":[142]
  156. 60035 [139]ll[177]ln [167] 60015
  157. 60040 [139]a$[178][177]"atn"[175]a$[179][178]"(NULL)" [167] 60050
  158. 60045 [139]a$[179]" "[176]a$[177]"z"[167] 60015
  159. 60050 ll[178]ll[170]1:[153]"cmd";a$;:[151]212,.:[153]"to";:b$[178]b$[170]a$
  160. 60055 [137] 60015
  161. 60770 [153]"wait listortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  162. 60780 [153]" {$7d}                                   {$7d}"
  163. 60790 [153]" {$7d}       contw o r d  s e a r c h        list{$7d}"
  164. 60800 [153]" {$7d}       print#tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        list{$7d}"
  165. 60810 [153]" {$7d}                                   {$7d}"
  166. 60820 [153]" {$7d}       1.  create your own         list{$7d}"
  167. 60830 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  168. 60840 [153]" {$7d}       for2.  girls names             list{$7d}"
  169. 60850 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  170. 60860 [153]" {$7d}    close  sys3.  boys names              list{$7d}"
  171. 60870 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  172. 60880 [153]" {$7d}       4.  basic commands          list{$7d}"
  173. 60890 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  174. 60900 [153]" {$7d}       cont5.  baseball teams          list{$7d}"
  175. 60910 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  176. 60920 [153]" {$7d}       clr6.  u.s. presidents         list{$7d}"
  177. 60930 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  178. 6094